home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Sharing Fun! I Know My Savior Lives / Sunday Savers: Sharing Fun! I Know My Savior Lives.iso / pc / main.dxr / 00009_exit.ls < prev    next >
Encoding:
Text File  |  2009-10-06  |  785 b   |  36 lines
  1. on mouseDown
  2.   global speed
  3.   sprite(6).visible = 0
  4.   if speed = "slow" then
  5.     if sprite(61).locV < 440 then
  6.       repeat with x = 61 to 71
  7.         sprite(x).locV = sprite(x).locV + 400
  8.       end repeat
  9.     end if
  10.   else
  11.     repeat while sprite(61).locV < 440
  12.       repeat with x = 61 to 71
  13.         sprite(x).locV = sprite(x).locV + 25
  14.       end repeat
  15.       updateStage()
  16.     end repeat
  17.   end if
  18. end
  19.  
  20. on mouseLeave
  21.   global speed
  22.   if (speed = "slow") and (sprite(61).locV > 40) then
  23.     repeat with x = 61 to 71
  24.       sprite(x).locV = sprite(x).locV - 400
  25.     end repeat
  26.   else
  27.     repeat while sprite(61).locV > 40
  28.       repeat with x = 61 to 71
  29.         sprite(x).locV = sprite(x).locV - 25
  30.       end repeat
  31.       updateStage()
  32.     end repeat
  33.   end if
  34.   sprite(6).visible = 1
  35. end
  36.